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USER INPUT TO DEC SOFTWARE PLANNING 

One of the most positive outcomes of the Fall DECUS Symposium in Los Angeles 
was an expanding interest on the part of DEC in user inputs to their software 
development planning. The managers of software development expressed a desire 
to hear from the users through the special interest groups. As a first step 
in that direction I am including a survey we hope will influence decisions DEC 
is making on what software development for the PDP-8 they should pursue in the 
next couple of years. 

It is important for us to get a strong, representative response to this initia- 
tive from a broad cross section of the user community. If we get a sufficient 
response we will be able to discuss the questions and answers with DEC manage- 
ment at the Spring Symposium in Atlanta. 

The survey is based on the "hypothetical" solution that DEC has available 

the resources to pursue one major set of software development projects for the 

PDP-8 family over the next two to three years. 

One possible set of projects involves Operating System Development either along 
the lines of an upgraded "OS/8 type" of single user program development system 
which removes existing architectural limitations or else along the lines of an 
expanded "RTS-8 type" system for real-time, multi-tasking with support of single 
user program development (i.e., system CUSPs would be Tasks, etc.). 

The second possible set of projects would involve Language Development. One 
possible line for this to take would be a FORTRAN IV that would run under RTS-8. 
A second possibility would be a BASIC implemented as an incremental compiler/ 
interpreter which might possibly be able to use the floating point processors. 

The attached form attemps to give you a chance to express your opinion on which 
major line of development to pursue and within it which way the work should go. 
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The hypothetical situation is probably fairly close to what is really going to 
happen and it does not allow for "one of each". You really have to face the 
real world situation of limited resources and decide what is most important to 
you. 

EUROPEAN OS/8 SPECIAL USER GROUP 

I recently received information from Lars Palmer about the Fall European DECUS 
Symposium. At that time consistent with the new DECUS Bylaws an OS/8 Special 
Interest Group for Europe was formed. An announcement of the formation was in- 
cluded along with a report of what went on at the meeting. Also Lars has sent 
along some additional information on MULTI-8. All of these items will be 
attached to the Newsletter. We can expect the DECUS Europe part of the OS/8 
community to be forwarding material for this Newsletter which we plan to continue 
as one international publication for the foreseeable future. 

"12-BIT SIG" vs. "OS/8 SIG" 

Ernst Lopes Cardozo has written that he thinks the common opinion at the 
European DECUS Symposium in September was in favor of a general 12-bit SIG 
as opposed to one limited to OS/8. He thinks that with the new hardware 
(PDP-8A, etc.) and software trends (multi-user system like ETOS and MULTI-8) 
a wider formal scope may cover our members 1 range of interests better. If 
there is no significant objection between now and the Spring DECU5/US Sympo- 
sium I think we will probably move in this direction. The concept of a "Main- 
frame" group as exemplified by the DEC system- 10 group seems to be the most 
logical way to meet the 12-bit users' full range of needs for communication 
and cooperation in the future. 

How about ideas for a "catchy" name that expresses the expanded area of interest? 

NEWSLETTER DEADLINES 

If the turn-around time and frequency of publication of this Newsletter are 
going to be improved I think I will have to establish a publication schedule 
with a deadline. Anything received "camera ready" by the deadline will make 
it into that issue. Anything not "camera ready" that I can get re-done by the 
deadline will also make it into that issue. Anything not making it under the 
deadline will be held for the next issue. To start I want to try an every- 
other-month schedule until further notice. Therefore, the deadlines will be 
the last Friday of the even numbered months (i.e., April 29, 1976, June 25, 1976, 
etc. ) 

MACREL UPDATE 

The indication tYom DEC at the Fall Symposium was that work w^uld begin again in 
earnest on MACREL (the OS/8 MACRO/Relocating assembler and linking loader for 
you new comers) as soon as everyone got back to Maynard. Since then, however, 
the DEC NET/8 development has taken over some of the MACREL personnel so progress 
is still awaiting the availability of personnel. Incidentally, I noticed an ad 
for PDP-8 System software people in the Sunday paper. DEC has been looking for 
one or two capable people to beef up the staff in our area. This reflects the 
increased software effort they promised in Los Angeles. 
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SOFTWARE SUPPORT 

There were a lot of people at the Fall Symposium who were unhappy with the 
support OS/8 software has been receiving. We were by no means alone in our com- 
plaint, incidentally. Most of the other machine /operating system areas were 
saying similar things. 

Bob Bean came ready to meet the OS/8 complaints. He told us that since he has 
taken charge of the area that includes CS/8 development he has been making a 
major effort to reduce the SPR backlog. He wants to answer all SPRs in 30 days 
or less. This has not been achieved as yet, but he says a lot of progress has 
been made. 

To improve the quality of the answers Bob is personally reviewing each one. Un- 
til the situation is completely under control he invited users to write him 
directly if they are dissatisfied with the quality of an answer. This is in con- 
trast to the normal indirect route through Software Communications. The tradi- 
tional route will again be the rule after a few months when the situation is 
stabilized. Bob is located in Maynard in Single Users Systems, ML 5-5 /E76- 

In other developments a presentation was given on DEC's companywide re-evaluation 
of the war they handle software support. The "gist™ of the session was that they 
now will state how long they will warranty software and under what categories 
of support. (The cynics saw this as an effort to limit a previously open ended 
liability.) After the warranty period some sort of charge for support is anti- 
cipated (to help pay for support, which is costing much more than previously 
anticipated, perhaps). This new policy does not presently have much impact on 
existing ("old") products but watch out for it to be phased in with new announce- 
ments. The main thrust seems to be towards the bigger, more expensive systems 
but we are bound to be affected eventually. 

MATERIAL FROM STANLEY RABINOWITZ 

Stan has forwarded a number of items since the last Newsletter. 

1. Running BATCH in 32K. When BATCH runs on a 32K machine only 28K is made 
available to user programs. Users who have 32K and have no TD8E ROM may 
wish to install the following optional patch which allows programs to access 
all 32K while BATCH is running. Change location Yll in BATCH from 1370 

to 7200. 

2. Corrections to previously published information. The item published in 
the October Digital Software News on PAL8 V9G /W option failing is Sequence 
10 not 8. You should add a change to location 1532 from 0307 to 0310 to 
change the version number to V9H. Also in the same issue of DSN, also 
applying to PAL8 V9G, regarding switching between handlers. The sequence 
number for this is 11 not 9» There will be a replacement for this item 
which is now sequence 11. The problem is that PAL8 blows up when switching 
between non-resident handlers. The following patch corrects this problem 
and changes the version number to V9I. Change location 533** from 1176 to 
7200 and 1532 from 0310 to 0311. 
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3. An OS/8 quiz and puzzle that I will attach. 

k. Some advance copies of articles for the Digital Software News that I will 
condense and attach. 

SPR's FORWARDED BY LARS PALMER 

1. Shis is an explanation of the forward reference problem in RALF which 
causes problems that are undocumented. Problems arise because RALF needs 
to know during pass 1 how many words each statement will assemble into so 
that it can define symbols. Since it doesn't know whether an FPP direct 
reference instruction containing a forward reference should assemble as 
one word or two it plays safe by assigning it two words and flagging the 
symbol causing the forward reference so that during pass 2 all direct ref- 
erence instructions containing this symbol are assembled as two word in- 
structions. The way around this is to explicitly indicate how many words 
are needed for each direct instruction containing a forward reference to a 
base page variable by following the OPCODE by a single quote character ( ' ) 
for a one word instruction or a number sign (#) for a two word instruction - 
The only mention of single quote appears in the Fortran IV Users' Manual 
page SV2 which has been superseded by the OS/8 Handbook. The number sign 
is given a cursory mention at the bottom of page 5-22 in the OS/8 Hand- 
book as well as in the same table as is single quote but none of these ex- 
plain where the symbols need to be used. 

2. The OS/8 EDIT V9 rub out algorithy does not always work correctly since 
text is stored as 6 bit characters with 77 being used as an escape code and 
question mark (?) being stored as 77 77. When the rub out algorithm meets 
something like ?A stored as 77 77 01 it will treat the second 77 as an 
escape code for the 01 and deletes both of them corrupting the line. The 
solution that the submitter A. Windrom suggests is to ensure that 77 77 
never occurs by re-coding question mark as 77 00 because the 200 code is 
presently ignored by 1DIT so that 00 should not be a code that is stored. 

3. Mr. Windrom also submitted a report on several Fortran IV bugs in Version 
3.0k« Because some of them appear to have been corrected in the new Version 
to be released with 0S/8 Version 3C, I will not try to include them in 
this Newsletter. 

NOTE FROM JIK CORYELL 

Jim says that in TEC0 Version 3 if location 5126 is changed from 0011 to 1637 
than you have a "V" command which is like the T command except that output 
gees to the output file rather than the terminal. He says this was once done 
with a "W" command. JS.tu also sends a copy of an SPR that he submitted in July 
regarding a problem with 0S/8 BASIC where SAVE programs destroy BAT^H. The 
problem seems to be that an effort is made to restore BATCH with some words 
when they were saved by BRTS or BL0AD. If this problem has not been solved by 
a published fix and you need Jim's patch let me know. 

Jim also notes that ip. tha December Digital Software News that in article 
BRTS #19 an instruction Is shown as 5053 when it should be 3053. Have you 
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noticed the most consistent thing about DEC is the error rate in their printed 
matter. Since at least 1968 it seems to have stayed constant at about "one 
critical error per pz^je". 

ADDRESS FOR JOHN ALGEO 

Recently I mentioned that John Algeo had sent me information on some random 
access routines for Fortran II. At that time I did not have an address for 
him. Since then I have received the following address: Santa Ynez Research 
Farm, PO Box 688, Santa Ynez, CA 93**6Q. 

MORE ON BOB PHELPS' USR ROUTINE AND OTHERS 

I talked to Bob a few days ago. He is getting close to submitting his USR 
routine to BECUS; however, he wants to make some improvements first. In 
the meantime, if you need to reach him the address I have is University of 
Rochester Medical Center, Department of Radiation Biology and Biophysics , 
Rochester, NY 1U6U2. 

In addition to his USR routine which was mentioned last time and which I have 
been using with great success, the other programs he forwarded are as follows: 

MODE 8 - Allows PDP 8 mode subroutines to be easily called from Fortran programs . 
This routine allows your subroutine to be written strictly as a PDP 8 subroutine 
without having to go through all of the overhead of providing a HALF coded 
interface. This minimizes the space required for such linkage for each PDP 8 
mode routine you use. 

RUNK - This allovs a single LINCtape block to be read into a 256 variable 
array, for LINCtape this routine will provide the ability to access data stored 
in the usual 12 bit way with PDP 12 programs. 

IOT — This routine allows PDP 8 mode instructions (IOT's in particular) to be 
issued with a specified value in the accumulator. The new value is returned. 
This could be used with an LAS instruction to return the value of the switch 
register* 

TV - This routine allows ASCII formatted information to be displayed on the 
PDP 12 scope in background mode while executing Fortran programs. The routine 
is designed for more rapid interaction with the user than is possible using 
the teletype as an output device. The FORTRAN function backspace allows over- 
writing a line and rewind erases the screen. Input from the keyboard using 
the scope to display the typed line is possible using the TV in handler. To 
use TVTN the NULL handler must be used as the output device associated with 
the TV display and the buffers for both NULL and TVIN must be in the same field. 
All standard formatted READ commands are allowed. 

READB and JfRITEB - These allow reading and writing binary files from FORTRAN. They 
read and write the next block of 256 12 bit binary words on a particular logical 
unit to and from a 256 variable array. The values read are between and U095. 

FMTX - This is a FORTRAN multiasking executive which allows simultaneous execu- 
tion of several subroutines controlling real-time tasks. 
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PLOTIT and PREVU - These are additions to the Fortran IV plotting capabilities 
■which permit spooling of Calcomp plotter output to a file and then they provide 
the ability to pull back the contends of such a file and plot it as a background 
task under Fortran IV. 

SCIENTIFIC SUBROUTINE PACKAGE 

The version of the SSP that is accessible to OS/8 users that I converted from 
the PDP 10 SSP package has now been submitted to the DECUS library. If you need 
a copy of it before it is formally announced you could contact the library. The 
library prefers that you wait until an item has been formally accepted and 
announced, so you should only make a special request such as this if you really 
need something in a h.urry before it is fully accepted into the library. Special 
requests for new programs thai are not processed yet cost the library a lot of 
time and trouble. 



IMPROVED EDITOBS FROM GEORGE GONZALEZ 

George Gonzalez recently forwarded to me information on several variations on 
editors that he has worked on for the PDP 8. Since most of the professors 
and graduate students where he is don't have the time and patience to learn how 
to use EDIT let alone TECO he has made several changes to the BASIC interactive 
editor to give it better editing capabilities. The most important enhancement 
aside from fixing "DEC bugs" is the addition of a FOCAL like MODIFY command 
(or EDIT*s "S" command). This allows one to modify a line without having to 
re-type the whole line. Other convenient features include LNE and KNH commands. 
The LNH command allows you to specify start listing without a heading at a given 
line number and list a particular number of lines. He has alsc ensured that 
control-C always returns to the editor. 

He has also modified the BASIC editor so that it will edit FORTRAN programs 
with the addition of line numbers. It is capable of chaining to either the 
FORT or FU compiler when RUN is typed. This allows the novice programmer to 
work with FORTRAN without ever learning the subtlies of EDIT or TECO. The nor- 
mal work flow with this modification is the same as it is with OS/8 BASIC, that 
is, the compiler is chained to, the program is loaded and executed, and when it 
terminates or when control-C is typed the return is made to the editor which 
re- loads the text of the program you're working on. 

Mr. Gonzalez also sends along information on a version of a program called 
XEDIT which is similar to one of the same name which runs on his University's 
CDC time sharing systems. He likes this editor much better than either EDIT 
or TECO for most editing purposes. It is certainly an interesting and po- 
tentially useful editor with many features too complicated to detail in the 
Newsletter. Mr. Gonzalez is willing to supply anyone with copies of his BASIC 
3.1 editor, his FORTRAN editor or XEDIT on paper tape along with documentation 
for $2.00, $2.00 and $U.0O, respectively. His address is: George Gonzalez, 
2626 Keller Parkway, St. Paul, Minn. 55100. 
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NOTE FROM BRIAN WHARTON 

Mr. Wharton sent along a note saying that he has developed a patch for PAL 8 V9 
enabling any single logical edit page to be listed on the output device rather 
than printing a listing of an entire file. The selection of what page is printed 
is a run time option so that you can get around a lot of the problem of having 
to include large numbers of XUST commands to control listings when you have 
only slow output devices and/or small storage devices and you are working on 
large programs. He says that he will be happy to send a copy of the patch to 
anyone who is interested. His address is: ITT Components Group, Europe, 
Standard Telephones and Cables, Ltd., Capacitor Division, Brixbam Road, 
Paignton, Devon, TQUTBE s ENGLAND. 

NOTE FROM PHILIP SIEMENS 

Phil indicates that he is submitting a new Fortran II library to DECIB that 
performs 23 bit arithmetic using mode A of the EAE. On a matrix inversion 
benchmark that he has been using the speed improvement is 110* over the stand- 
ard OS/8 version 3 Fortran II and kl% over Fortran IV with the EAE. Phil also 
included a copy of a straight forward, rather comprehensive speed testing bench- 
mark for Fortran programs along with some results. I plan to work with it a 
bit more aad perhaps publish some results in the future. 

NOTE FROM THOMAS E. MERRICK 

Mr. Merrick as well as a number of other members of the Special Interest Group 
have responded to the problem raised by Lars Palmer regarding a FORTRAN statement 
of the form: 

DO 10 I = J - 1 

Mr. Merrick and others have noted that this should not be considered as a 
source error for the following reason: Spaces may be inserted anywhere in an 
executable statement in FORTRAN to improve readibility, including in variable 
name thus M D0 10 J" is the same as "D01GJ", which is a legal variable name 
and "D010J = J - l" is a legal executable statement. Note also that the follow- 
ing is legal and not a DO statement: 

DO 10 J = 1.10 

Mr. Merrick suggests that this type of human typing error can be found by look- 
ing at the symbol map and being suspicious of "DOXXJJ" type of variable names 
where XX is any number and JJ is an integer. 

NOTE FROM A. W. FREDIANI REGARDING RTS-8 

Mr. Frediani is a new user of RTS-8 and expresses an Interest in getting to- 
gether with other people interested in using it in academic and scientific 
areas. If you are interested you can contact him at the College of Liberal 
Arts, Department of Psychology, Pennsylvania State University, kit Bruce V. 
Moore Building, University Park, PA 16802. 
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NOTE FROM ROBERT D. COLVETT 

Mr. Colvett wrote some time back inquiring as to whether DECUS program 8-397 
(8K EDITOR FOR DISC MONITOR) had ever been adapted to OS/8 because it contains 
a number of conveniences that are not available in the OS/8 editor. As far 
as I know, no one has done this and unfortunately the DECUS library submission 
did not include a source. If anyone has any information regarding the subject, 
please forward it to me. 

NOTE FROM PETEF. LEMPKIN 

Mr. Lempkin writes to say that he has a package running for OS/8 FORTRAN II 
that provides functions similar to John Algeo's random access 10 package. It 
al l ows one or two page simultaneous input and output files, reading and setting 
(like USETI, U8ET0 on the PDF 10) of file block pointers and file sizes so as 
to implement random access I/O. Devices may be specified by either number or 
ASCII name. The actual I/O is performed either in 8 bit character packed mode 
and/or block transfer mode. The package allows the intermixing of these modes. 
The I/O package has been used in much of his software over the past year in- 
cluding a PDP8E based image processing system called PROCES. A write-up on 
PROLES is in the NITS Depository in Arlington Virginia. (The NITS number 
is ¥B2k26h/AS 9 $7.00 paper copy; $2.25 microfiche). He plans to submit both 
I/O and PROCES to DECUS in the near future. 

Mr. Lempkin notes the difficulty of generating binary files and exchanging them 
between Fortran II and Fortran IV due particularly to the difficulty of access- 
ing the last word in blocks in FORTRAN IV and the fact that FORTRAN IV always 
uses a floating point type representation for its data. He is interested in 
anyone's thoughts or inputs on the subject. (Perhaps Bob Phelps* READS and 
WRITES are a good solution.) Mr. Lempkin' s address is Image Processing Unit, 
Division of Cancer Biology and Diagnosis, National Cancer Institute, NIH, 
Bethesda, MD 200 Ik. 

FLAP . I have recently been interested in FLAP so I started trying to track 
it down and found out a few interesting things. First, in spite of what the 
documentation says FLAP docs not require an FPP-12 to operate. It requires 
only an 0S/8 configuration the same as RALF. As some of you know, FLAP generates 
absolute binary output that can be loaded by ABSLBR the same as PAL8 does, but 
FLAP is able to assemble both PDP-8 instructions and FPP-12 instructions. 
It was originally intended to be used by people us lag aa FFF-12 without 
FORTRAN IV. I have yet to find anyone who has ever used it, however; in fact, I 
haven't been able to find anyone who knows whether it is even distributed. It 
is not distributed with 0S/8 or Fortran IV and the last time I checked with 
people who are now in charge of the FPP-12 as a product at DEC they were not 
familiar with it either so that it may be that it is not being shipped with 
FPP-12 *s either. It is, however, documented in the OS/8 Handbook and as it 
turns out it is generated from the very same source file that RALF comes from. 
The difference is a conditional assembly which substitutes appropriate sections 
of code to implement the extra pseudo-ops and relocatable binary output for RALF 
or else the absolute binary output for FLAP. I tried assembling the current 
sources for RALF/FLAP and discovered that through oversights during some of the 
more recent additions of new features to RALF; the FLAP conditionals were not 
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able to assemble a valid version of FLAP, however, a few minor editing changes 
did produce an apparently functional version of FLAP. Does anyone else have 
any experience with this? 

A couple of interesting things that it might be possible to do with FLAP are: 

1. FLAP could he used to assemble RTS-8 tasks that utilize the FPP-12. 

2. Consider the possibility of extracting the FPP-12 simulator from the FORTRAN 
IV runtime system and using it along with FLAP in a manner similar to the 
old floating point software interpreter that has been used since the first 
days of PDP-8. You would get a much more powerful floating point package 
this way and it would be possible to interchange support packages for all 
the possible configurations from a plain PBP-8 all the way to a machine 
with an FPP-12. In fact, I have already done some of this. The floating 
point processer emulator is fairly easy to remove from the run time system 
and use stand alone. 
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THE 1975 DECUS EUROPE SYMPOSIUM 



A summary of points of interest to the 12 bit Users Group. 



As can be seen from a separate protocol in this paper it was decided to form a 12 bit SIG 

in Europe. We hope to build up a good communication with our American counterpart and 

that we will have a meaningful exchange of ideas between us. In the session part of the symposium 

the following points of interest were discussed all of which will be referred in greater depth in 

the symposium proceedings to be issued later. 

V J Blackmore of Christie Hospital, Manchester, England, talked about modifying OS/8 to use 
a KW 8 display. By modifying the system in such a way that keyboard characters are sent to 
a special program reciding in the top part of core it was possit'e to modify the system to use a 
KW 8 display instead of a teletype. This approach had to be used as a character generated 
program is too large to fit in a normal handler. The character generated is used as a normal 
OS/8 handler and calls into core the core resident program for character generation. 

Alan Charlesworth of University of Bath, England, talked about a FOCAL based hybrid operating 
system. In reality a FOCAL interpreter modified so as to be the driver to an analogue computer 
thereby creating a computer system. 

P Handler of University of Madrid, Spain, talked about a lapstick OS/12 FOCAL-12 integrated 
software. A system whereby it is possible to utilize common file handling conventions in the 
three operating systems and to boot from one system to the other by keyboard commands. 

A special session was given to the Malti-8 system, which is described in a separate bulletin 
inclosed with this Newsletter I hope. As I have now implemented another of the timesharing 
monitors for the PDP 8 (the ETOS timesharing system from Educomp Corporation) I shall 
give a short comparison between these two systems. 

The Multi-8 is a complex series of monitors from a small core residence monitor for several 
tasks up to a background/foreground monitor with the same kind of general idea as the RTS-8 
in the foreground except that the tasks are 

a) swapable on disc 

b) relocatable to any page of core within the core allocated for the foreground 

The background is the timesharing system which will run up to 4 terminals for normal OS/8 
usage. The ET06 system is a pure timesharing system running up to 8 terminals. It does not 
support the very wide range of hardware that the Multi-8 supports. I have no absolute criteria 
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for such a statement but I have a feeling that the ETOS system is probably faster in the 
timesharing part than the Multi-8. The ETOS system utilizes a special hardware which 
the Multi-8 does not. Both system support almost all OS/8 software. We run in our system 
FORTRAN IV, TECO, OS/8 BASIC and I know that these things are runable under the 
Multi-8 system too. However, as always is the ease when running a single user program 
in a multi-user environment some patching in the program is required. Specifically the 
teletype services routines usually have to be looked into. 

The Multi-8 system allocates each user a separate SYS area on the disc while the 1TOS 
system uses a common disc SYS area write locked to all users. This second approach has the 
advantage of making program development done at a central console faster available to all 
users and also is probably a bit more foolproof for the normal user who has no chance of 
destroying his SYS area by a program running wild. However, it does have a disadvantage. 
The programs that modify the SYS area have to be changed. FORTRAN IV compiler e. g. has 
to be changed so as to use DSK area for scratch storage and the batch monitor can not be run 
at all as it heavily modifies the SYS area. It wiU be very interesting to see in the years to 
come which timesharing OS/8 system becomes the standard in the OS/8 community. Let us 
hope that the systems becomes standardized and we will not run into the situation where we have 
several systems with slightly incompatible programs , which is not a situation to look forward to. 
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MCRF NEWS FROM MULTI-8 

^^ ^ 

after thf somewhat fragmentary information in the last 
ns/8 stg newsletter i »ill try tc be mcre specific as to the 
status of thf *ulti8 project, 

at the oecus europe symposium helc !«•!? sept «75 in 
the hague, the first relfase cf the hultis 
fore(5rpunc/backgrounc system was annguncec and demon'str af ec . 
by courtesy of the cltch blast furnaces the jmplementers cf 
multi8 were a8le tc oemgnstrate a ywc user ver3j.cn cn a 1«k 
p0p8/e with pkse a, rj th8e oectape f 1 5 » apart from hardware 
breakdown the system behaved well ano soke attendees were 
able to demonstrate various ts/8 prcg»am3, notably a 
himajure cobol" running in the fk eackgrouno cf muiti6*. 
this first release oces not require any special hardware and 
supports up to four user os/8 timesharing cn a 1«k machine; 
supported peripherals include rkpe, rf«*s, gp32, tcb!, tc*8, 
to*£, lpt, ptp, ptr, and various terminals of different 
speed and filler character needs. 

This oecus symposium uas the i ast occasion that we had 
floor anthoni with us in holland as he left eu»gpe at thf 
end of september to start all over again in new 2eehno, i 
think w«ll hear mcre of »-'im from the cther sxoe cf the 

WORLD. 

IN THE HULTI6 WORKSHOP SG&E POSSIBLE FLTURE EXTENSXCN3 
WERE DISCUSSED, E.G. DEMAND-PAGING JPER 4K), HARDWARE 
SUPPORT OF CDF CIF ETC., IMPLEMENT ATICN OF SOME DECNET 
TASKS, EXTENSION TO 7 USFRS, ETC. SOME CF THESE 
PFVELOPHENTS HAVE ALREADY BEEN STARTED. 

MULTI-8 I? DISTRIBUTED BY WESTFRIE3 CONSULTING BV, A 
SHALL DUTCH SOFTWARE HOUSE AND I THINK I HAVE TO EXPLAIN WHY 
HE OON*T SAY PUT IT IN THE DECUS LIBRARY. 

WE THIN* THE DECISION TO INSTALL A NEW OPERATING SYSTEM 
HAS ABOUT THE SAME IMPORTANCE AS THg CHCICE OF A MAir-RAME. 
ONES AN OPERATING SYSTEM IS IN USE A LARGE INVESTEMENT IN 
PROGRAMMING IS BUILT UPON IT AN'O ONE HAS TO BE SU*E THAT 
THE OS WILL CONTINUE TO SERVICE FOR A NUMBER OF YEARS ANC 
HAS THE ABILLITY AND SUPPORT TC INCORPORATE NEW PERXFERALS. 
CORE EXTENSIONS AND APPLICATIONS*. IN THIS LIGHT IT SEEMS 
RESONA0LE TO SPEND A FEW PERCENT OF THE HARDWARE IK-VESTMENT 
ON SOFTWARE. 
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OS/8 V3 CREF V3 #15 13. 

CORRECTION TO I 3N ARTICLE ON PAGE 47 OF OCTOBER 1975 ISSUE 
SUBMITTED TO DSN BV STANLEY RABINOWITZ 

ON THE THIO LINE OF THE PATCH "4532" SHOULD READ -4352" 
THE ENTIRE LINE SHOULD READ: 

2561/XXXX 4352; 4313; 5211; 7786 

THIS IS REPLACEMENT ARTICLE 1 TO SEQUENCE ARTICLE 2 FOR CREF V3, OS/8 V3 



OS/8 V3C CREF V4 

FIXES TO CREF 

SUBMITTED 2-FEB-76 TO DSN BY STANLEY RABINOWITZ 

THE FOLLOWING PATCH INCORPORATES PATCHES TO CREF V3A WHICH WERE FOUND 
TOO LATE TO BE INCLUDED IN THE OS/8 V3C RELEASE. THESE PATCHES UPGRADE 
CREF V4 TO CREF V4A 

. GET SYS CREF 

. ODT 

2576/0240 181 

4353/XXXX 1356; 3042; 5235; 3T- 

4587/5767 5755 

4555/XXXX 4353 

6016/1036 5310 

6110/XXXX 4713; 1036; 5217; 741 

0107/XXXX 3512; 3513; 5586; 413; 431; 7564 

3242/5564 5355 

3355/XXXX 4106; 5564 

5623/3776 4106 

4300/0145 201; 1144 

3254/7650 7450 

3256/1010 1161; 7650; 5273; 1018; 1372; 7700 

3264/1023 5267; 1023; 4585; 1023; 1114 

~C 

. SAVE SYS CREF 

OS/8 V3 F4 

PROBLEM WITH MULTIDIMENSIONAL ARRAYS 

SUBMITTED 18-JAN-76 TO DSN BY STANLEY RABINOWITZ 

DATA INITIALIZATION OF MULT I -DIMENSIONAL ARRAYS DOES NOT WORK PROPERLY. 
THE F4 COMPILER IS ERRONEOUSLY COMPUTING THE SUBSRIPTS OF THE ARRAY. 

THE FOLLOWING PATCH CORRECTS TIS PROBLEM: 

. GET SYS F4 

. ODT 

2866/7126 4; 1266 

2121/7240 7281 

~C 

. SAVE SYS F4 



Q5Z8 V3 TECO V383 #15 Ik, 

CONDITIONALS INSIDE ITERATIONS 

SUBMITTED 28-JAN-76 TO DSN BV STANLEV RABINOWITZ 

TECO DOES NOT PROPERLY HANDLE UNSATISFIED CONDITIONALS IF OTHER 

CONDITIONALS ARE ENCOUNTERED WITHIN AN INNER ITERATION WHILE SCANNING 

FOR THE TERMINATING SINGLE QUOTE. 

THIS IS BECAUSE TECO INCORRECTLY BUMPS THE CONDITIONAL COUNT WHENEVER 

IT SEES A DOUBLE QUOTE. THIS SHOULD NOT BE DONE AT NON-ZERO 

NEST LEVELS. 

THE FOLLOWING PATCH FIXES THIS PROBLEM AND UPGRADES TECO TO VERSION 384 

. GET SVS TECO 

. ODT 

2560/7240 4144 

145ZXXXX ±752; 7648; 5512; 7248; 5744; 2711 

1372/8457 468 

~C 

. SAVE SVS TECO 



OS/8 V3 BASIC V3. © 

LONG INPUT LINES 

SPR SUBMITTED 25-N0V-1975 BV WALTER C. DAUGHERITV 

IF MORE THAN ABOUT 100 CHARACTERS ARE READ BV AN "INPUT" STATEMENT 
IN BASIC WITHOUT A CARRAGE RETURN, BRTS GETS LOST. CARRAGE RETURN, 
COMTROL-C THEN WHIFES OUT THE MONITOR HEAD <07680-87777> REQUIRING 
REBOOTSTRAPPING. 



OS/8 V3 ODT 

ODT USE OF LOCATIONS 87744-87746 

SPR SUBMITTED 25-N0V-76 BV WALTER C. DAUGHERITV 

DESPITE THE INFORMATION ON PAGE 1-114 OF THE OS/8 HANDBOOK^ ODT DOES NOT 
APPEAR TO USE LOCATIONS 07744-87746 AS DOCUMENTED. SEE EXAMPLE: 

07744/6203 

07745 Z0000 2Q0 

07746 Z6003 3401 

08000/0007 1 

08001 Z7402 

07746/3401 

~C 

. SAVE SVS TEST 00089-08001 

. GET SVS TEST 

. ODT 

87744/6203 
87745 Z0008 
07746 Z2888 

00000Z0001 
08001 Z7402 
07746Z2000 

'NOTE: I CAN NOT REPRODUCE THIS PROBLEM WITH THE 0SZ8 V3C MONITOR -R. H. > 



#15 15. 
OS/8 HANDBOOK AND DIGITflL SOFTWARE NEWS 

SPR SUBMITTED 25-N0V-75 BV WALTER C. DAUGHERITY 

1> ON PAGES ±-58/59 THE HANDBOOK SHOULD INDICATE THAT 'CGMPA' IS 

REQUIRED FOR 'COMPARE'. <'COMP' IS INTERPRETED AS 'COMPILE') ALSO P. 1-53 

2> DSN F€B 75 - CHAINING TO 'LOADER' - SHOWS THE OL r > CONTENTS 

OF LOCATION 35 INCORRECTLV. 

3> DSN FEB 75 - MEANINGLESS CODE GENERATED BV 'LIST XXXX' - SHOWS THE 

OLD CONTENTS OF LOCATION 81427 INCORRECTLV. 

4> DSN APRIL 75 - MAGNETIC TAPE - REFERS TO THE WRONG PAGE 

5> DSN APRIL 75 - SHORTENING THE LENGTH OF THE RF03 SYSTEM DISK - WILL 

NOT WORK IF ANOTHER SYSTEM DEVICE IS ACTIVE WHEN BUILD IS RUN, AS WOULD 

ORDINARILY BE THE CASE FOR R USER WHO HAD GENERATED A SYSTEM WITH A 

SYSTEM DEVICE OTHER THAN THE RF88 AND THEN RESAVED 'BUILD'. 

A MORE GENERAL SOLUTION IS AS FOLLOWS: 

. RUN SYS BUILD 

^DELETE SYS 

^INSERT RF88, SYS 

$SIZE SYS 

2080/1777 

SALTER RF88, 7 

8881/2 

^DELETE SYS 

*~C 

. SAVE SYS BUILD 
6> DSN JULY 75 - BASIC GETS LOST - SHOULD HAVE AN '. ODT' COMMAND 
AFTER THE ' . GET' . 

7> DSN OCT 75 - MISSING FORM FEED - CONTAINS A SERIOUS ERROR WHICH 
RESULTS IN 'CREF'S' PRINTING AN INFINITE NUMBER OF A'S AT THE END 
OF ITS LISTING. THE CORRECT PATCH TO LOCATION 2561 IS 4352. 
8> DSN OCT 75 - /W OPTION FAILS - SHOWS THE OLD CONTENTS OF LOCATION 
2314 INCORRECTLY. 

9> DSN DEC 75 - USING TTY HANDLER WITH BRTS - CONTAINS A SERIOUS 
ERROR WHICH RESULTS IN THE FIRST BLOCK OF 'BRTS' BEING ZEROED BY A 
'PRINT' STATEMENT. THE CORRECT PATCH TO LOCATION 5373 IS 3853. 
18 > OS/8 HANDBOOK ERRORS AND CHANGES: 
P. 1-37 BIT 3=1 PROGRAM BEING RUN WILL NOT DESTROY THE BATCH MONITOR 

< 5880-7577 OF THE HIGHEST FIELD> 
P. 1-51 THE OPEN BRACKET <C > IS PRODUCED ON TELETYPEWRITERS BY . . . 
P. 1-84 CTRL/L < FORM > 
P. 1-86 CTRL/L <FORM> 
P. ^-88 IF NO OUTPUT FILE IS SPECIFIED, THE 'J' OR 'F' COMMAND 

READS THE NEXT . . . 
P. 1-91 TWO PLACES <E AND G> : CTRL/L <FORM> 
P. 1-93 TWO PLACES <A AND C> : CTRL/L <FORM> 
P. 1-188 PARAGRAPH 2. SEEMS INAPPROPRIATE FOR 'SORRY-NO INTERRUPTIONS' 

< PREVIOUS PAQE> 
P. 1-110 "THE /I OPTION CAN BE USED WHEN MAKING PATCHES TO AN ALREADY 

SAVED PROGRAM WITHOUT REASSEMBLING THE ENTIRE 
PROGRAM. SEE EXAMPLE 1 BELOW. " 
P. 1-111 /N LOAD ALL FILES SPECIFIED ON THIS INPUT LINE INTO FIELD N 

< WHERE N IS AN OCTAL INTEGER) UNTIL A 'FIELD' SETTING 
IS ENCOUNTERED. 



#15 16. 
P. 1-117 CONTROL COMMANDS 

NOTE: ADDRESSES IN THE FOLLOWING COMMANDS MAY BE 5 OCTRL DIGITS. 
P. 1-118 A-OPEN AC 

L-OPEN L 
P. 1-120 M LINE-FEED LINE-FEED - OPEN UPPER SEARCH LIMIT 

INITIALLLV, THE UPPER SEARCH LIMIT IS 7577. 
P. 1-121 TELETVPE EXAMPLE HAS MANY ERRORS: SEARCH LIMITS ARE IN 41 
AND 42, AND THE FOUR " ISZ' INSTRUCTIONS "FOUND" ARE NOT IN 
ADDRESSES WITHIN THE SEARCH LIMITS. 
P. 2-4Q REMOVE "BUILD" RND ADD "SIZE" BEFORE "SYSTEM" 
P. 2-53 REMOVE ' BUILD- DESCRIPTION AND ADD "SIZE' DESCRIPTION 

FROM DSN JUNE 75 
P. 2-178 **STRING£* 

*N«5TRING*NENDSTRING*PWEF$* 

THE FIRST GOOD LINE OF VPUR FILE; IF SO, DELETE THEM. 
P. 3-28 THE SECOND INSTRUCTION SHOULD BE "CDF 06' 
P. 3-30 "THE /F OPTION ..." 
P. 3-31 "THE ' IFNDEF' PSEUDO-OP ..." 

P. 3-41 THE RIGHTMOST COLUMN UDER GROUP 1 OPERATE MICROINSTRUCTIONS 
SHOULD BE HEADED "SEQUENCE". 
'BSW IS SEQUENCE 4 
p 3_ 42 'OSR- IS SEQUENCE 2 

THE RIGHTMOST COLUMN UNDER COMBINED OPERATE MICROINSTRUCTIONS 
SHOULD BE HEADED "TIME". THE TIMES GIVEN SEEM INCONSISTENT 
P. 6-41 <LINE NUMBER> ' JbEF' FUNCTION NAME <ARGUMENT> 
P. 6-94 SECOND INSTRUCTION SHOULD BE 'CLL RTL' 
P. 6-122 AFTER THE "END" STATEMENT ADD: 

"HOWEVER, IF ANV ERROR MESSAGES ARE GENERATED THEV MAV NOT BE 
ABLE TO IDENTIFY THE STATEMENT IN ERROR IF IT IS UNNUMBERED. •• 
P. 7-2 /K KEEP THE FILE "FORTRN. TM" AS A PERMANENT FILE 
P. 7-3 THE FILE 'FORTRN. TM' IS THEN DELETED .. . 
P. 7-46 THE FORTH THRGUGH SIXTH LINES BELONG AT THE BOTTOM OF THE PAGE 

TO COMPLETE NOTE 7. 
P. INDEX-3 CCL <NOT CCY> 
P. INDEK-8 THIS PAGE IS NOT ALPHABETIZED 



#15 17. 
FROM T. WES SYKE5 

THE FOLLOWING PATCHES MAY BE HELPFUL TO USERS OF OS/8 BASIC VERSION 2: 
i. BR 




BASIC. FF 

. GE SYS: BASIC. FF 

. OD 

14246/1236 7525 < T,*D K2 BECOMES NL8802 > 

142-36/0803 7685 <K2 GECOMES POINTER TO 7685) 

14345/2773 3726 <NEW STORE INDIRECT TO 7685) 

14373/7665 7244 <POINTER TO 7685 BECOMES NL7776) 

14274/XXXX 1285 (ADD USR FUNCTION WD TO -2 

TO DECIDE IF CALL IN ERROR WAS LOOKUP OR ENTER) 

14275/XXXX 7658 <SNA CLA - IF NOT ZERO IT WAS NOT LOOKUP) 

14276/XXXX 5542 < JMP TO SET EOF FOR THIS FILE) 

14277/XXXX 4516 C JMS TO ERROR ROUTINE) 

14218/4516 5272 < CHANGE ERROR CALL TO JMP TO PATCH) 

CTRL/C 

. Sfi SVS : BASIC. FF 

. GE SVS: BASIC. SF 

. OD 

12635/2467 2488 < CHANGE -<OLD ERROR CALD-1 TO -<NEW ERROR CALL>-1) 

CTRL/C 

. 5A SVS:BASIC. SF 

THIS PATCH PROVIDES THE USER WITH THE ABILITY TO ENQUIRE 
ABOUT THE PRESENCE OF A FILE WITHOUT THE HASSLE OF THE FATAL 
ERROR "EN". ALL THAT IS NECESSARY TO DO IS PERFORM 
THE !, FILE #N:" OR "FILEN #N." INSTRUCTION AND THEN TEST 
WITH THE " IF END #N THEN XXX". SINCE I HAVE A RKSE DISK 
I WAS NOT ABLE TO CHECK THAT THE ERROR FOR THE ENTER 
OPERATION PERFORMS AS BEFORE BECAUSE I CAN USUALLY OPEN OUTPUT. 

BASIC. UF 

THE ONLY PATCH I HAVE CONCERNING THE LAB S/E FUNCTIONS 

IS FOR THE "JMS" VECTORS IN 8RTS. SV 

THE OS/8 HANDBOOK < PAGE 6-126) INDICATES THAT 156 S SHOULD BE 3541 

AND 1567 SHOULD BE 2521 < FOR ADC -:N0 CLW FUNCTIONS). THEY HAVE 

CHANGED IN VERSION 2 BASIC TO 3542 AND 3522, RESP. 

I DON'T THINK THAT THIS HAS BEEN PUBLISHED > SO I THOUGHT 

I WOULD PASS IT ON. 



#15 18. 
OS/ 8 Quiz - Stanley Rabinowitz - 

1. How can a user progrcju print a message on the batch log? 

2. What is a shorter form for the following command? 

.PAL SYS: PROG, LPT :<^PROG 

3. Which of the following cause disastrous results? 

(a) Typing CTRL/C while squishing SYS: 

(b) Write-locking SYS: while FOTP is in the middle of 
deleting a set of files 

(c) Punching a hole in your system DEC tape with a hole puncher 

(d) Turning your system LINCtape off line while trying to 
write on SYS: 

(e) Trying to run OS/8 on a TC08 using a PDP-11 formatted DECtape 

4. Is there a way to create a directory which has no additional 
information words, no* even one for the date? 

5. Your TECO macro ;is running amok and out of control. How can you 
stop it without losing the file? 

6. How can you give today's date to all files on a DECtape? 

7. How can you change the title at the top line of your PALS listing? 

8. If drive of your dual RK8E goes down, is there any way to run 
OS/8 using drive 1? 

9. Can FOTP be aborted without returning to the monitor? 

10. What cusps do anything with additional information words after the date? 

11. Which of the following cusps can be chained to? 

(a) TECO 

(b) CCL 

(c) BOOT 

(d) CAMP 

12. What does the /D option in FOTP stand for? 



Answers to OS/8 Quiz #15 19. 

« 

1. First, check if BATCH is running. (Bit 1 of location 07777 is 1) 
Get field of BATCH (bits 6-8 of location 07777) . Then, for each 
character you want to print on BATCH log, execute the following: 

CDF userfield 
CIF batchfield 
TAD (CHAR 
JMS I (BATOUT 

where BATOUT=7400. (Ref : page 3-10 of software support manual.) 

2. .PAL PROG-L 

3. none of these. 

(a) PIP is good! It will respond: SORRY - NO INTERRUPTIONS and 
continue with the squish. 

(b) FOTP is good! FOTP prints: ORIGINAL DIRECTORY PRESERVED. 

(c) DECtapes are indestructable! Redundant recording of data 
enables the tape to still be read. 

(d) LI NC tapes are good! The LINCtape controller will 'hang' 
until you reselect the drive; then the operation will continue. 

(e) TC08 controllers are good! The controller causes OS/8 to use 
the first 128 words in each DECtape block. All the extra 
words are ignored. [Don't try this with the TD8E controller.] 

4. Yes. The command .ZERO dev:=0 is treated the same as .ZERO dev:=l. 
However, the = option on ZERO and SQUISH is taken modulo 100 

to allow you to specify additional information words, i.e. , type 

.ZERO dev:=100 

This will give you a directory without room for dates, but you 
will have the capacity to handle more files. 

5. Type CTRL/P . 

6. With V3, one way to do this is to copy all the files to another 
DECtape using the /T option. A much simpler scheme is available 
with V3c: 

.RENAME DTA0:*.*/T 

7. The EJECT pseudo-op uses the text following it to specify a new title 

8. Yes. Use the bootstrap given on page 1-27 of the OS/8 handbook. 



#15 20. 
Answers to OS/8 Quiz - continued 

9. Yes. Type CTRL/P - 

10. PIP - ZERO and SQUISH create them. 

DIRECT - /I lists additional information words in octal 

FOTP - properly copies additional information words 

RESORC - tells you if you have room for additional information words (/E) 

11. all of them 

(a) Pass legal TECO command to TECO by putting it in 17600, 
one character per word. 

(b) Pass legal CCL command to CCL by putting it in 17600, one 
character per word, terminated by a 0. 

(c) Leave legal BOOT command in OS/8 KBM line buffer. 

(d) Leave legal CAMP command in OS/8 KBM line buffer. 

12. /D stands for Don't copy. It definitely does not mean "Delete", 
since there are combinations of switches which can be used in FOTP 
which include the /D switch which do not delete any files. 

/N stands for No predelete. If both /D and /N are used, then there 
will be neither predeletion nor postdeletion. Conseguently, no 
files will be deleted. 

Scoring: 

10 or more correct - You are an OS/8 Guru 

8 or 9 correct - You are an OS/8 expert 

5-7 correct - You have some familiarity with the internal workings 

of that inexplicable and wondrous product known as OS/8 

2-4 correct - You are a novice, and should think twice before using 
programs such as FOTP, TECO. 

less than 2 correct: lirit yourself to commands like .DATE 



X, 

2. 
7. 
9. 

10. 

12. 

13. 
16. 
19. 
21. 

22. 
23. 
25. 
26. 

27. 

28. 
30. 

32. 
3U. 
36. 

37. 

38. 
39. 



ACROSS 
Used for compression 
Existential tester 
Argument habitat 



OS/8 Crossword Puzzle - Clues 

DOWN 

1. FORTRAN function 

2. Switch not used by PAL 8 

3. This consists of data 



#15 



21. 



Transfer mode guaranteeing 
file integrity 

Most cusps do this 

Way to omit symbol table 

Alphanumeric field 
specifier in FORMAT 

Data eater 

OS/8 can run on this 

Command decoder mode 

Switch allowing hit- 
mapping of .SV files 

Type of display 

Switch 

Type of loop 

Default extension used 
with hi down 

Command used by FORTRAN 
and BATCH 

Way of starting a program 

Default extension to be 
used by new assembler 

Handler with many conditionals 

Powerful language 

Way to get bigger DIRECTORY 
and RESORC listings 

How to fill your TTY with 
LG error messages 

Way to use more memory 

Special character processed 
by 32 across 



k. BRTS error message which is the 
same as a FORTRAN keyword 

5. Greater than L option 

6. Less than L option 

7- Default transfer mode used by 16 down 

8. tSR function -which BASIC can perform 

11. Device used to protect injured body 
part 

l.k. Way to get rid of user service 
routine 

15. Usually fast non~ file-structured- 
device 

16. Cusp used to copy system heads 

17. Typically first command typed 

18. Affectionate name for 16 across 
20. Type of block 

22. Handler which reads holes 

21*. OS/ 8 pat cher 

26. Opposite of R (TECO) 

29. BASIC statement 

31. Neme of location wherein contents 
of accumulator are stored upon a 
breakpoint 

33. Reply to PIP 

35. FORTRAN function which is also name of 
a rival PDP-8 operating system 

36. DEC'S inadequate substitution for FUTIL 
38. basic part of OS/8 

Ul. sign used by CCL 



OS/8 Crossword Puzzle 



#15 22. 
Stanley Rabinowitz - 




ACROSS (cont.) 

40. This occurs many times in 
PALS and F4 

43. A word has lots of these 

45. Sympathetic sorrow 

46. Way to get bigger CREF 
listings 

47. FPP has one of these 

48. Default extension to get 



DOWN (cont.) 

42. Handler which does not respond 
to CTRL/C 

44. Mathematical name for FORTRAN 
(0.0,1.0) 

45. Default extension preceding 
30 across 

47. Option used with multi -volume 
transfers 

49. Used to get version numbers 
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DC02 Multiple Terminal Handler for OS/8 

James H. Donnelly 
Appalachian Laboratory for Occupational Respiratory Diseases 
Medical Research Branch 
Korgantown, W. Va. 



Many application programs in our laboratory are written in FORTRAN II 
and IV. To facilitate I/O from these programs to several remote terminals, 
an OS/8 compatible DC02 handler has been developed. This handler is a 
modification of the ASR33 handler. 

To implement the DC02 handler, simply append the code listed below to 
ASR33.PA, delete the ASR33 page zero code, the origin at 200, change the 
contents of location TTYCTO to MKCC, and assemble with PAL8. 

The added code will redefine the teletype nemonics. Since these nemonics 
are part of PAL's permanent symbol table, error RD 101 will be typed on 
the console terminal. Ignore the messages; they are there only to inform 
you that the symbols havs been redefined . 
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BC62 HANDLER 



6612 
061 1 
61!? 
6112 



0UTBC=!2 

MT0N=£1I7 
MKCC=6 112 



60001 

60602 
08663 

00004 
00005 

00006 

0000? 

000 1 1 

00012 
00013 



14 

00015 

60616 

0001? 

60021 
00622 
66023 
60024 
06025 
00026 
6002? 
66031 
> 4032 
06033 
00034 
00035 
60636 

0003? 
00641 

00042 
60643 
06644 
60645 

00046 
6604? 

00051 

00052 

000S3 

60054 
60055 
00656 

0005? 

00061 
60662 
00063 
06664 
06665 
00066 
0066? 



0600 

7770 
0403 
6062 
6403 
6600 
6410 
41 16 

060*5 

0463 

0463 
6166 
0416 
416? 

0000 

0403 
6062 
0463 
6200 

0410 

4166 

0000 

0403 
60^2 
6463 
6360 
0410 
4105 

0000 

0463 
6062 
0463 
6460 
0410 

4164 

0000 

G403 
6062 
0463 
6500 
0410 
4163 

0000 

0463 
6062 
0463 
6600 
0410 
4162 

0000 



*6 



-10 

DEVICE BC02;DEVICE DC8; 4 16 ;£C0S! 7744006 zZSLOCK 2 



DEVICE DC02;D£7ICE DCW410:DC1S177+40*0*ZBLOCK 2 



DEVICE DC02;DEvlC£ BC2; 4 10 :BC2£! "7+4000 ;Z3L0CK 



DEVICE *C02;DEVICE DC3;410;DC3/i 177+406<?>:ZBLOCK 2 



DEVICE I-C02;DEVrCE DC4s416;DC4£177+406O;ZBLOCK 2 



DEVICE DCC2;DEVICS DC5:410;DC3G1?7+40O0:£BLOCK 2 



DEVICE D«. 62; DEVICE DC6: 4 10 sDC6Sl 77+4600; ZBLOC*.' 



00071 


0403 


DEVICE BC02;DEVIC] 


60672 


6062 




00073 


0403 




00074 


6700 




00075 


0410 




00076 


4101 




em?7 


0000 






bill 


KSF=10~!ND7C+60D1 




6*12 


KCO10~IMBVC+€0&2 




61 14 


krs« ie^rNriVc+6004 




61 16 


KRB-KCC *3S 




6121 


TSF»10^OUiTC+6001 




6122 


TCF=10 A Oim>C+6002 




6124 


TPC= 10-^3 UTDC-^6004 




6126 


TLS=TCF IPC 
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0001 



DC0VERSieH= a a£77 



0200 *200 



00200 


0010 


BC02C, 


10 




00201 


1316 


BC07AD, 


TAD 


CC0 


00202 


2203 


DC0ISZ, 


ISZ 


DCNMB 


00203 


0000 

0360 


DOiMB* 
*300 







00300 


0001 


DC0V, 


DC0 VERS ION 


00301 


2203 


BC7* 


ISZ 


DCNMB 


00302 


2203 


DC6, 


ISZ 


DCNMB 


00303 


2203 


DCS, 


ISZ 


DCNMB 


00304 


2203 


DC 4 - 


ISZ 


DCNMB 


00305 


2203 


DCS, 


ISZ 


DCNMB 


00306 


2203 


DC2, 


ISZ 


DCNMB 


00307 


2203 


DCi, 


ISZ 


DCNMB 


00310 


2203 


DC0, 


ISZ 


DCNMB 


00311 


7200 




CLP. 




00312 


6214 




RDF 




00313 


1315 




TAD 


-,jF0 


00314 


3363 




DCA 


CPFU 


00315 


6201 


CDF0, 


CDF 





0O316 


1 l/V", 




i, txu 


DCNMB 


00317 


7041 




CIA 




00320 


1201 




TAD 


DC0TAD 


00321 


3326 




DCA 


DCFON 


00322 


4366 




.IMS 


LOC 


00323 


7305 




CLh CLL 


I AC RAL 


00324 


1377 




TAD 


DC OX 


0O325 


337? 




DCA 


DC0X 


00326 


7402 


DC FUN. 


HIT 




00327 


3777 




DCA I 


l'C0K 


0O330 


7332 




CLA STL 





/UNIT SELECT, UNIT 1 



/CET OSERS DATA FIELD 

/MAKE A CDF TO USERS FIELD 

/SAVE IT 

/SET DATA FIELD TO 

/HANDLERS ALWAYS IN FIELD 0. 

/RESTORE ENTRY TO WAKE HANDLER REUSABLE 

/MAKE A TAD DCO + N 

/SAVE IT 

/FIND OUT WHERE THE TTT ROUTINES ARE 

/ AC = 2 

/MAKE AH ENTRY TO THE DC02 HANDLER 
/TO BE USED FOR ARC PICKUP AND EXIT 
/BECOMES TAD DCO + N 
/POINTER FOR ARC PICKUP AND EXIT 
/MAKE AN ISZ TO REPAIR ENTRY SKIP CHAIN 
' 200O > AC 



0033 1 1326 

00332 333« 

00333 1202 



0O334 


7402 


00335 


7300 


00336 


1283 


00337 


7841 


00340 


1363 


00341 


3343 


C9342 


7320 


0C343 


7482 
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TAB DCFUN /DCFUN = TAD DC8 + N 

PC A RE? 

TAB DC0ISZ /MAKE fiN IS2 TO FIX DESTROYED ENTRY FOIHT 



iiLi 

CLA CLL 

TAD X'CNMB 

CIS 

TAB JMPPOR 

DC A JROL 

CLA CLL STL 
HLT 



JROL, 

/ 

/ MOVE DEVICE SELECT BIT TO BITS 0-7 

/ BKT IS SET FOR DEVICE ZERO OH DC02 
/ BIT 7 IS SET FOR DEVICE 7. 



/BECOMES DCA TO DESTROYED ENTRY POINT I Si 

/PICKUP DEVICE NUMBER 

/M&SE a JMP TO DEVICE SELECT TABLE 



/BECOMES JMP TO DEVICE SELECT TfiBLE 



00344 


78 '8 


RAR 


00345 


7010 


RAR 


00346 


7010 


RAR 


00347 


7^10 


• rar 


00350 


7010 


RAR 


00351 


7010 


PfiR 


00352 


7010 


RAR 


00353 


7010 JRORO. RAR 


00354 


•2G0 


TAB 


00355 


6117 


MTON 


00356 


6112 


MKCC 



DC02C /UNIT SELECT BIT 

/CURRENTLY SET T ft SELECT UNIT 1 
/BITS 8 THRO il SELECT DC82 UNIT 
/ENABLE (SELECT) UNIT ilfil* DEVICE 
/CLEAR TEE KEYBOARD FLAG 

/ 

/ FINISH CONSTRUCT OF A PSEUDO JMS TO THE TTY HANDLER 

/ 



00357 730 1 

00360 1377 

0036 1 3377 

00362 3283 

00363 7482 CDFU, 



00364 5777 



CLA CLL I AC 



TAD 


i,C8X 


DC A 


DCOX 


DC a 


I'CNMB 



HLT 



JMP I DC6X 



/ZERO DEVICE NUMBER S«' ! 
/SO WE CAN USE IT AGAIN 
/BECOMES CDF TO USERS FIELD 
/SO THE TTY HANDLE? WILL KNOW NHERE THE 
'USER IS LOCATED 
/INDIRECT TO TTY HANDLER 



00365 5353 JMPROR. JMP JR0R8 



00366 


0^00 


00367 


7288 


80370 


1366 


00371 


0375 


00372 


1376 


00373 


3377 


00374 


5766 



LOC. 



clb 




TAD 


LOC 


AND 


A76 


TAD 


A 177 


DC A 


DC0M 


JMP I 


LOC 



00375 7600 h76, 7600 

00376 0177 6177, 0177 
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0377' -K37? 
00377 y00O iiC0X, 0- 



.'IHDIESCT JM? TO TTY HANDLER 



0405 PflG 

/ 
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OS/8 -FORTRAN - DIAL-FOCAL compatibility problems on the PDP-12 



Rudolf ALBRECHT 
Helmut JENKNER 
Universrty-Observatory, Vienna,. Austria. 

Because of its nature as an interactive language, FOCAL, is not very 
well suited for astronomical data reduction work including extensive / 
arithmetics; the calculating speed is just too slow. Thus, we have 
adopted OS/ 8 -FORTRAN for the data reduction. 

The data to be worked on are usually produced by assembly -language 
data acquisition programs* As long as they are integers they can be 
read from ONCtape by both FOCAL and FORTRAN (1, 2). It is, 
however, not possible to use FOCAL for looking at FORTRAN- 
produced floating-point data on LINCtape. The reason is the 
different iloating-point format of the two languages. 

FOCAL FP -format: 

l3l I I 1 M I irm isi i 1 1 i M i rm niiiiiiuiii 

fs — Exponent >| J< Mantissa -$J 

FORTRAN FP -format: 

1**1 1 I 1 I I 1 1 1 1 I I 1 I 1 J 1 1 I I I EED I 1 1 1 11 1 I ITTT1 



'«— Exponent -^|*£ Mantissa £>| 

S . . , Sign -bit 

The FORTRAN mantissa is a total of four bits longer than the 
FOCAL mantissa, trading a lirr ; 'ition ir- range for a higher 
numerical accuracy of numbers. FOF jlj'„AN uses in excess 128 
exponent, so it never becomes negative and the only sign-bit 
applies for the whole FP-word. 
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A FOCAL-12 user function has been developed to convert 
FORTRAN-written FP-data to FOCAL-format. 

Example; 

1.10 L O,F0 J F,#n,l 

• • • 

1.70 F 1=0,10; S A|I)»FNEW(D,F0(I)) 

The first argument D in the list is a dummy argument and it has 
the following purpose: upon returning the variable F0( I ) FOCAL, 
goes through a normalisation routine, rearranging the FP-word 
so the most significant bit occurs to the right of the mantissa 
sign-bit and adjusting the exponent accordingly. This is obviously 
not desirable in case F0( I) contains a FORTRAN variable. FNEW 
therefore changes (and later restores) the FOCAL function return, 
so there will be no normalizing. This, however, is only possible, 
if the file -call occurs in the second argument, since the first 
argument is evaluated by FOCAL before FNEW gains control. 

The need to temporarily eliminate the normalisation also means 
that the file-call has to occur in the argument list and that it 
must be just a file -call. In other words, calls like: 

1. 30 S T=F0| I } 
1.40 S A=FNEW(D^T) 

or 

1.20 S T=FNEW{D,F0(I)+25) 

are not possible. 

Several things have to be considered when writing the data onto 
LINCtape: FOCAL only can read 2 56 -word blocks and it expects a 
block to start with the exponent of an FP-word, even though this 
means wasting one integer word upon crossing block boundaries. 
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This :.s not necessarily the ease in FORTRAN, causing the FP -words 
to be out of alignment after the first block of the respective fUe. 
The problem can be solved by writing data block by block. For 
writing we are generally using the routine WLINC (1). 

It should be kept in mind that FORTRAN array subscrips start 
at 1 while FOCAL file subscrips start at . 

A listing of the FNEW function is appended. Instructions on 
how to implement the user function to FOCAL can be found in 
section 7 of the FOCAL-12 manual^ 



Reffcx^nees: 

(1) Charles M* MOORE III, R WLINC. SB, PS/8 FORTRAN 
Library Routines, DECUS No. 12-48. 

(2) Charles M. MOORE HI, LTAPE.SB, PS/8 FORTRAN 
Library Routines, DECUS No. 12-48. 
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31 



oooo 

OOO i 
0002 
0003 
0004 
0005 
0006 
0007 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0030 
003 1 
0032 
0033 
0034 
0035 
0036 
0037 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0060 
006 1 
0062 
0063 
0064 
0065 
0066 
0067 



0O35 4467 



0410 4470 



4470 


7200 


4471 


1373 


4472 


3374 


4473 


1375 


4474 


3774 


4475 


2374 


4476 


3774 


4477 


2374 


4500 


1376 


4301 


3774 


4502 


4545 


4503 


4540 


4504 


* / -f -—i 


4505 


7300 


4506 


3372 


4507 


1044 


4510 


75 1 


4511 


2372 


4512 


7010 


4513 


7012 


4514 


7012 


45 1 5 


0364 


4516 


3367 


4517 


1044 


4520 


7012 


4521 


7010 


4522 


0365 


4523 


1366 


4524 


3044 


4525 




4526 


70 i 


4527 


7012 


4530 


70 i 2 


453 i 


03 71 


4532 


3370 


4533 


104 5 



*20 

/FOCAL- 12 USER FUNCTION 

/TO DECIPHER FORTRAN- 

/ WR I T TEN FP- VALUES 

/CALL 

/ S A=FNEW i B, FO ( I ) ) 
/ 

/ D. . . DUMMY ARGUMENT 

/ FO. . OPENED FORTRAN 

/ FILE 

/ 

/NOTE: THE FILE CALL MUST 

/OCCUR IN THE ARGUMENT LIST 
/* 

PMODE 
*35 



FN, 



FN-1 






*4i0 




FN 






3-4470 




CLA 






TAD 


POINT 




DCA 


CPOINT 




TAD 


SW1 


/CHANGE FOCAL 


DCA 


I CPOINT 


/FUNCTION 


ISZ 


CPOINT 


/RETURN 


DCA 


I CPOINT 




ISZ 


CPOINT 




TAD 


SW2 




DCA 


I CPOINT 




GETC 






PUSHJ 


/GET ACTUAL 


EVAL 


/ARGUMENT 


CLA 


CLL 




DCA 


SFLAG 




TAD 


EXP 




SPA 




/SIGN? 


ISZ 


SFLAG 




RAR 




/EXTRACT LOWE! 


RTR 






RTR 




/BITS 


AND 


MASK1 


/FILTER 


DCA 


SAVEH 




TAD 


EXP 




RTR 






RAR 




/MAKE 


AND 


MASK2 


/FOCAL 


TAD 


M200 


/EXPONENT 


DCA 


EXP 




TAD 


HORD 




RAR 




/SHIFT 


RTR 




/MANTISSA 


RTR 






AMD 


MASK3 




DCA 


3AVEL 




T.CD 


HORD 
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0070 

0071 

0O72 

0073 

0074 

0075 

0O76 

0077 

01 00 

0101 

0102 

0103 4547 1372 ThZ- SFLAG /NEG? 

0104 

0105 4551 4451 JMS I MINSK I /YES, NEGATE 

0106 4552 1373 TAD POINT /RESTORE FOCAL 
0107 
110 
01 i 1 

0112 
Oil 3 
0114 
0115 
0116 
0117 
1 20 
C 1 2 i 
1 22 
0123 
0124 
0125 
0126 
0127 
0130 
0131 
0132 
0133 

0134 / 

0135 EFUN3I-136 

0136 EXP=*44 

0137 H0RD=45 

0140 LORD" 46 

0141 MIMSKI~5i 
14 2 E Vr\L~ 1 6 i 3 
014 3 GETC=4545 

0144 PUSHJ-4540 

0145 LISTAP-7 

NO ERRORS 



4534 


7012 






R jR 




4535 


7012 






RTR 




4536 


'■JS-z- J 






AND 


HASK2 


'"TvI'C* / 


i ';••"• / 






TAD 


SAVEH 


4540 


3045 






DCA 


HORD 


4541 


i ,'ij-j. <- 






TAD 


LORD 


4542 


70 1 2 






F;TR 




4543 


7012 






RTR 




4544 


0365 






AMD 


HASK2 


4545 


1370 






TAD 


SAVEL 


4546 


304^ 






DCA 


LORD 


4547 


1372 






TfiZ- 


SFLAG 


4550 


7640 






S2A 


CLA 


4551 


4451 






JMS 


I MINSK I 


4552 


1373 






TAD 


POINT 


a.S-;^: 


3374 






DCA 


CPU I NT 


n ersr /» 


1376 






TAD 


SW1 


4555 


3774 






DCA 


I CPU I NT 


4556 


2374 






IS2 


CPOINT 


4557 


1375 






TAD 


SW1 


4560 


3774 






DCA 


I CPOINT 


.1C4 ! 


2374 






ISZ 


CPOINT 


4562 


3774 






DCA 


I CPOINT 


4563 


5536 


/ 




.JHF 


I EFUN3I 


4564 


3400 


ft 




3400 


4565 


0377 


ft 


ASK2, 


037" 


7 




76O0 


ft 


200, 


-200 


4567 


OOOO 


o 


AVEH, 


O 




4570 


OOOO 


S 


AVEL» 


o 




4571 


7400 


H 


ASK3- 


7400 


4572 


OOOO 


o 


FLAG, 


a 




4573 


2022 


P 


OINT, 


202; 


"/ 


4574 


OOOO 


£ 


POINT, 


o 




4575 


6232 


o 


tti, 


623: 


~y 


4576 


7000 


s 


M2, 


NOP 
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USER INPUT TO DEC SOFTWARE SURVEY 
(Refer to article for background to these questions) 

1. Which major line of development would you prefer DEC to pursue? 

( ) Operating System Development 
( ) Language Development 

Comment: 



2. If DEC elects to pursue Operating System Development which class of 
system would you prefer? 

( ) Extended "OS/8 type" single user development system 
( ) Extended "RTS-8 type" multi-tasking real time system. 

Comment : 



3- If , on the other hand, DEC pursues Language Development which would you 
prefer they develop? 

( ) RTS-8 FORTRAN IV 
( ) New BASIC 
( ) Other 

Comment : 



k. What characteristics would you want to see in such a language? 



5. If DEC pursues Operating System Development could you accept a smaller 
number of supported configurations (i.e., less "breadth for more depth) 
assuming users would still be able to write their own configuration depen- 
dent support. (This might mean distribution on a more limited set of media 
than at present ) . 

( ) Yes 

( ) No 

Comment : 

Name = 

Company _ ; 



